home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -krazy wrecker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  767 b   |  19 lines
  1. 2 dim l(20),d(20)
  2. 5 poke53281,0:poke53280,12
  3. 7 gosub 1000
  4. 10 print"[147][142][151][154][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
  5. 20 fora=0to20:print"[214][146][158]  o   o   o   o   o   o   o   o   o   [154][214]";:next
  6. 30 print"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
  7. 40 k=1524:y=40:x=1
  8. 100 ifpeek(k+x+y)=32thenpokek,32:k=k+x+y:poke54272+k,2:pokek,87:goto100
  9. 120 ifpeek(k+x)<>32thenx=-x:goto150
  10. 130 ifpeek(k+y)<>32theny=-y:goto150
  11. 140 x=-x:y=-y
  12. 150 fora=1to20:ifpeek(k+l(a))<>214thenpoke54272+k+l(a),13:pokek+l(a),d(a)
  13. 160 next
  14. 170 fora=1to20:ifpeek(k+l(a))<>214thenpokek+l(a),32
  15. 180 next:goto100
  16. 1000 fora=1to20:readl(a):next:fora=1to20:readd(a):next:return
  17. 2000 data-81,-80,-79,-42,-41,-40,-39,-38,-2,-1,1,2,38,39,40,41,42,79,80,81
  18. 2010 data108,66,123,108,77,66,78,123,67,67,67,67,123,78,66,77,108,123,66,108
  19.